(defun c:tifflist ()
  (setq tlo (open "c:\\tiffiles.txt" "r"))
  (setq xlo (open "c:\\tifflist.tsv" "w"))
  (while (setq rlo (read-line tlo))
    (setq thisfile (dos_file rlo))
    (if thisfile
      (progn
        (setq datestr
               (strcat
                 (substr (rtos (nth 2 thisfile) 2 0) 7 2);day
                 "/"
                 (substr (rtos (nth 2 thisfile) 2 0) 5 2);month
                 "/"
                 (substr (rtos (nth 2 thisfile) 2 0) 1 4);year
                 " "
                 (substr (rtos (nth 2 thisfile) 2 8) 10 2);hour
                 ":"
                 (substr (rtos (nth 2 thisfile) 2 8) 12 2);minute
                 ":"
                 (substr (rtos (nth 2 thisfile) 2 8) 14 2);second
               )
        )
        (write-line (strcat rlo "\t" (rtos (nth 1 thisfile) 2 8) "\t" datestr) xlo)
      )
      (write-line (strcat rlo "\tunknown\tunknown") xlo)
    )
  )
  (close tlo)
  (close xlo)
  (princ)
)
